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-- file LitDefs.Mesa 

-- last modified by Satterthwaite, March 20, 1978 5:21 PM 

DIRECTORY 

AltoDefs: FROM "aUodefs", 
StringDefs: FROM "stringdef s" , 
TableDefs: FROM "tabledefs"; 

LitDefs: DEFINITIONS - 
BEGIN 

-- table allocation codes 

Ittype: TableDefs. TableSelector ■ 7; 
sttype: TableDefs. TableSelector ■ 8; 

-- data structures 

LitTablnit. LitTabErase: PROCEDURE; 

LitRecord: TYPE » RECORD [ 
SELECT litTag: * FROM 

word => [index: LTIndex], 
string »> [index: STIndex], 
ENDCASE]; 

-- literal constants 

WordSequence: TYPE = ARRAY [0..0) OF WORD; 

LTRecord: PRIVATE TYPE - RECORD [ 
link: LTIndex, 
datum: SELECT kind: * FROM 
short »> [value: WORD], 
long «> [ 

codelndex: [0. .Al toDef s .\/MLimit/2] . 
length: CARDINAL, 
value: WordSequence], 
ENDCASE]; 

LTIndex: TYPE = POINTER [0. .TableDefs .TableLimit/2) TO LTRecord; 
LTNull: PRIVATE LTIndex « LAST[LTIndex] ; 

Literalld: TYPE = RECORD [baseP: TableDefs, TableFinger , index: LTIndex]; 

LitDescriptor: TYPE = RECORD[ 

offset: POINTER [0 . . Al toDef s .VMLimit) TO WordSequence, 
length: CARDINAL]; 

-- procedural interface 

CopyLiteral: PROCEDURE [Literalld] RETURNS [LTIndex]; 

FindLitDescriptor: PROCEDURE [DESCRIPTOR FOR ARRAY OF WORD] RETURNS [LTIndex]; 

FindLiteral: PROCEDURE [WORD] RETURNS [LTIndex]; 

ForgetLiterals: PROCEDURE RETURNS [currentSize : CARDINAL]; 

LitDescriptorValue: PROCEDURE [LTIndex] RETURNS [LitDescriptor]; 

LiteralValue: PROCEDURE [LTIndex] RETURNS [WORD]; 

"- string literals 

STRecord: PRIVATE TYPE - RECORD [ 
SELECT kind: ♦ FROM 
master ■> [ 

link: MSTIndex, 

local: BOOLEAN, 

info: CARDINAL, 

codelndex: CARDINAL, 

string: StringBody], 

-- the actual string text follows here 
copy -> [ 

mark: BOOLEAN, 

link: MSTIndex], 
ENDCASE]; 
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SizeSTPrefix: PRIVATE CARDINAL ■ SIZE[master STRecord] - SIZE[StringBody] ; 

STIndex: TYPE « POINTER [0. .TableDef s .Tab1eLimit/2) TO STRecord; 

STNull: PRIVATE STIndex - LAST[STIndex] ; 
MSTIndex: TYPE - POINTER [0 . .TableDef s . TableLimit/2) TO master STRecord; 

-- procedural interface 

EnumerateLocalStrings: PROCEDURE [STIndex, PROCEDURE [MSTIndex]]; 
EnumerateMasterStrings: PROCEDURE [PROCEDURE [MSTIndex]]; 
FindLocalStringLiteral: PROCEDURE [STIndex] RETURNS [STIndex]; 
FindStringLiteral: PROCEDURE [StringDefs .Substring] RETURNS [STIndex]; 
MasterString: PROCEDURE [sti: STIndex] RETURNS [MSTIndex]; 
ResetLocalStrings: PROCEDURE RETURNS [STIndex]; 
StringLiteralReference: PROCEDURE [STIndex]; 
StringLiteralValue: PROCEDURE [STIndex] RETURNS [STRING]; 

END. 



